home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / mdcombo / mainform.dfm / mainform.txt
Encoding:
Text File  |  1996-09-15  |  3.4 KB  |  168 lines
  1. object Form1: TForm1
  2.   Left = 212
  3.   Top = 99
  4.   Width = 549
  5.   Height = 308
  6.   Caption = 'Master detail combo demo'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   TextHeight = 16
  14.   object Label1: TLabel
  15.     Left = 64
  16.     Top = 28
  17.     Width = 85
  18.     Height = 16
  19.     Caption = 'Project name'
  20.   end
  21.   object Label2: TLabel
  22.     Left = 64
  23.     Top = 66
  24.     Width = 61
  25.     Height = 16
  26.     Caption = 'Company'
  27.   end
  28.   object Label3: TLabel
  29.     Left = 64
  30.     Top = 104
  31.     Width = 57
  32.     Height = 16
  33.     Caption = 'Manager'
  34.   end
  35.   object Label4: TLabel
  36.     Left = 64
  37.     Top = 168
  38.     Width = 57
  39.     Height = 16
  40.     Caption = 'Manager'
  41.   end
  42.   object DBNavigator1: TDBNavigator
  43.     Left = 168
  44.     Top = 236
  45.     Width = 225
  46.     Height = 25
  47.     DataSource = DataProjects
  48.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  49.     TabOrder = 0
  50.   end
  51.   object DBEdit1: TDBEdit
  52.     Left = 164
  53.     Top = 24
  54.     Width = 233
  55.     Height = 24
  56.     DataField = 'ProjectName'
  57.     DataSource = DataProjects
  58.     MaxLength = 40
  59.     TabOrder = 1
  60.   end
  61.   object mdDBLookupCombo1: TmdDBLookupCombo
  62.     Left = 164
  63.     Top = 64
  64.     Width = 233
  65.     Height = 25
  66.     DataField = 'CompanyID'
  67.     DataSource = DataProjects
  68.     LookupSource = DataCompanies
  69.     LookupDisplay = 'CompanyName'
  70.     LookupField = 'CompanyID'
  71.     Style = csDropDownList
  72.     TabOrder = 2
  73.   end
  74.   object mdDBLookupCombo2: TmdDBLookupCombo
  75.     Left = 164
  76.     Top = 104
  77.     Width = 233
  78.     Height = 25
  79.     DataField = 'ManagerID'
  80.     DataSource = DataProjects
  81.     LookupSource = DataManagers
  82.     LookupDisplay = 'ManagerName'
  83.     LookupField = 'ManagerID'
  84.     Style = csDropDownList
  85.     TabOrder = 3
  86.   end
  87.   object Button1: TButton
  88.     Left = 416
  89.     Top = 100
  90.     Width = 69
  91.     Height = 33
  92.     Caption = 'Readonly'
  93.     TabOrder = 4
  94.     OnClick = Button1Click
  95.   end
  96.   object mdDBLookupList1: TmdDBLookupList
  97.     Left = 164
  98.     Top = 144
  99.     Width = 233
  100.     Height = 73
  101.     DataField = 'ManagerID'
  102.     DataSource = DataProjects
  103.     LookupSource = DataManagers2
  104.     LookupDisplay = 'ManagerName'
  105.     LookupField = 'ManagerID'
  106.     TabOrder = 5
  107.   end
  108.   object DataDemo: TDatabase
  109.     Connected = True
  110.     DatabaseName = 'Demo'
  111.     DriverName = 'STANDARD'
  112.     LoginPrompt = False
  113.     Params.Strings = (
  114.       'PATH=\combdemo')
  115.   end
  116.   object TableProjects: TTable
  117.     Active = True
  118.     DatabaseName = 'Demo'
  119.     TableName = 'PROJECTS.DB'
  120.     Top = 28
  121.   end
  122.   object DataProjects: TDataSource
  123.     DataSet = TableProjects
  124.     Left = 28
  125.     Top = 28
  126.   end
  127.   object TableCompanies: TTable
  128.     Active = True
  129.     DatabaseName = 'Demo'
  130.     IndexFieldNames = 'CompanyID'
  131.     TableName = 'COMPANY.DB'
  132.     Top = 64
  133.   end
  134.   object DataCompanies: TDataSource
  135.     DataSet = TableCompanies
  136.     Left = 28
  137.     Top = 64
  138.   end
  139.   object TableManager: TTable
  140.     Active = True
  141.     DatabaseName = 'Demo'
  142.     IndexFieldNames = 'CompanyID;ManagerID'
  143.     MasterFields = 'CompanyID'
  144.     MasterSource = DataProjects
  145.     TableName = 'MANAGER.DB'
  146.     Top = 100
  147.   end
  148.   object DataManagers: TDataSource
  149.     DataSet = TableManager
  150.     Left = 28
  151.     Top = 100
  152.   end
  153.   object TableManagers2: TTable
  154.     Active = True
  155.     DatabaseName = 'Demo'
  156.     IndexFieldNames = 'CompanyID;ManagerID'
  157.     MasterFields = 'CompanyID'
  158.     MasterSource = DataProjects
  159.     TableName = 'MANAGER.DB'
  160.     Top = 152
  161.   end
  162.   object DataManagers2: TDataSource
  163.     DataSet = TableManagers2
  164.     Left = 28
  165.     Top = 152
  166.   end
  167. end
  168.